//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "warning.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormWarning *FormWarning;
//---------------------------------------------------------------------------
__fastcall TFormWarning::TFormWarning(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormWarning::Timer1Timer(TObject *Sender)
{
  if(++CountStep>5)
  {
  Timer1->Enabled=false;
  this->Close();
  }
  else AlphaBlendValue += 10;
}
//---------------------------------------------------------------------------
void __fastcall TFormWarning::FormShow(TObject *Sender)
{
   CountStep=0;
   this->AlphaBlendValue = 200;
   Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
